/*
** cls.c
**
** Pictor, Version 1.51, Copyright (c) 1992-94 SoftCircuits
** Redistributed by permission.
*/

#include "pictor.h"

/*
** Clears the screen and homes the logical and hardware cursor.
*/
void cls(void)
{
	scroll(0,1,1,_PL_rows,_PL_columns);
	setcurs(1,1);
	_PL_offset = 0x0000;

} /* cls */
